%{
  (* let compt_tab= Hashtbl.create 97;; *)
  let recup s= try Hashtbl.find Compthash.compt_tab s with |_-> Printf.printf("la variable n'existe pas"); exit 1;;
%}

%token PLUS_F MOINS_F
%token <string> IDENT
%token <int> INT
%token EON

%start peace
%type <int> peace

%left PLUS_F
%left MOINS_F
%%

peace:
|l=love EON { l}

love:
| n=INT {n (*pas de boucle imbriquée*)}
| s=IDENT {recup s}
| x=love PLUS_F y=love {x+y} %prec PLUS_F
| x=love MOINS_F y=love {x-y} %prec MOINS_F
